home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / icpr20c.arc / STEP503.CMD < prev    next >
OS/2 REXX Batch file  |  1987-07-09  |  2KB  |  106 lines
  1. ; This file was created using MAKESTEP from the package ICPR20
  2. ; designed by Wayne Wolf.  ICPR20 Copyright 1987
  3. ; You may modify this file in any way you wish but since the make
  4. ; files utilize the existing cmd files I discourage it.  If you have
  5. ; comments or useful modifications please contact me, either at
  6. ; unix: ww@ufcsg.ufl.edu  or bbs: PC-EXCHANGE at 404-977-6686.
  7. Page1:
  8.   Clear
  9.   Message "Menu of Bulletin Boards for the 503 area."
  10.   Message "██████████████████████████████████████████████████████████████████████████████"
  11.   Locate 22,15
  12.   Message "          "
  13.   Locate 0,45
  14.   Message "Mode:"
  15.   Locate 0,51
  16.   Find S7 "H"
  17.   IF Found
  18.      Message "Hayes"
  19.   ELSE
  20.      Message "Racal"
  21.   ENDIF
  22.   Locate 0,60
  23.   Message "Redial:"
  24.   Locate 0,68
  25.   Find S8 "A"
  26.   IF Found
  27.      Message "Active"
  28.   ELSE
  29.      Message "Inactive"
  30.   ENDIF
  31.   Locate 2,0
  32.   Message "D  --> Disconnect and exit to area code dialer     S  --> Switch modes"
  33.   Message "E  --> Execute ICPR20 from within Procomm          R  --> Toggle Redial mode "
  34.   Locate 22,0
  35.   Message "Your Choice -->"
  36.   Goto Retype1
  37. ;
  38. Retype1:
  39.   Locate 22,15
  40.   Get S3
  41.   Switch S3
  42.       Case "E"
  43.          EndSwitch
  44.          Execute "Make.cmd"
  45.       EndCase
  46.       Case "R"
  47.          EndSwitch
  48.          Goto Activate
  49.       EndCase
  50.       Case "S"
  51.          EndSwitch
  52.          Goto Switch
  53.       EndCase
  54.       Case "M"
  55.          Clear
  56.          Message "Manual dial for area "
  57.          Locate 0,21
  58.          Message S2
  59.          Message "What number do you wish to dial --> "
  60.          Locate 1,36
  61.          Get S6
  62.          Assign S5 "Manual dialing."
  63.          Execute "Dial"
  64.       EndCase
  65.       Case "D"
  66.          Execute "Discnect"
  67.       EndCase
  68.       Default
  69.          Message " "
  70.          Message "Invalid choice, please retype"
  71.          Locate 22,15
  72.          Message "          "
  73.          Goto Retype1
  74.       EndCase
  75.   EndSwitch
  76. ;
  77. Switch:
  78.   Find S7 "R"
  79.   IF Found
  80.      Tran "I!"
  81.      Pause 2
  82.      Tran "ATZ!"
  83.      Assign S7 "H"
  84.      Rflush
  85.   ELSE
  86.      Tran "ATZ I!"
  87.      Pause 2
  88.      Tran "!"
  89.      Assign S7 "R"
  90.      Rflush
  91.   ENDIF
  92.   Pause 3
  93.   Rflush
  94.   Goto Page1
  95. ;
  96. Activate:
  97.   Find S8 "A"
  98.   IF Found
  99.      Assign S8 "I"
  100.   ELSE
  101.      Assign S8 "A"
  102.   ENDIF
  103.   Goto Page1
  104. ;
  105. Exit
  106.